SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDACTI_PEND_I01]          
/*-------------------------------------------------------*/          
/*---Empresa              : OFISIS S.A.                --*/          
/*---Cliente              : OFISIS S.A.                --*/          
/*---Sistema              : Tesoreria                  --*/          
/*---M÷dulo               : Empresa                    --*/          
/*---Programa             : Grabaci÷n Activo Pendientes--*/          
/*---                       Detalle                    --*/            
/*---Script               : tccanj_clie1.sql           --*/          
/*---Nombre SP            : SP_TDACTI_PEND_D01         --*/          
/*---Desarrollado por     : Javier Flores              --*/          
/*---Fecha Creaci÷n       : 05/05/2004                 --*/          
/*---Base Datos           : Microsoft Sql Server       --*/          
/*---Versi÷n              : 8.0                        --*/          
/*---Invoca a SP          :                            --*/          
/*-------------------------------------------------------*/          
          
/*-------------------------------------------------------*/      
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/      
/*---Fecha Modificaci©n   : 20/04/2005                   --*/       
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/      
/*-------------------------------------------------------*/      
          
/*-------------------------------------------------------*/          
/*---Comentarios                                       --*/          
/*---                                                  --*/          
/*---                                                  --*/          
/*-------------------------------------------------------*/          
          
/*-------------------------------------------------------*/          
/*---Drop Proc SP_TDACTI_PEND_D01                      --*/          
/*---Grant Execute On SP_TDACTI_PEND_I01 to public     --*/           
/*---SP_TDACTI_PEND_I01                                --*/          
/*-------------------------------------------------------*/          
@ISCO_EMPR       TD_VC_002,          
@ISCO_USUA_MODI      TD_VC_008_USUA,          
@ISCO_MONE_NACI  TD_VC_003,          
@ISCO_MONE_EXTR  TD_VC_003,          
@ISCO_ACTI_PEND  TD_VC_020,          
@IDFE_COMP       TD_DT_001,          
@ISCO_MONE       TD_VC_003,          
@INIM_MONE_ORIG  TD_NU_016_004,          
@INFA_CAMB_DIAR  TD_NU_009_004,          
@ISCO_PROV       TD_VC_020,          
@ISTI_DOCU       TD_VC_003,          
@ISNU_DOCU       TD_VC_020,          
@ISTI_CORR_ACPE  TD_VC_001,          
@ISNU_ORDE_COMP  TD_VC_020,          
@ISNU_GUIA_INGR  TD_VC_020
	As
Declare          
@VNNU_SECU       TD_IN_001,          
@VNFA_CAMB       TD_NU_009_004,          
@VSCO_MONE_SIST  TD_VC_003,          
@VNIM_MONE_SIST  TD_NU_016_004,          
@VNUL_CORR_ACPE  TD_IN_001,      
@VSTI_CAMB_0002  TD_VC_001,      
@VSTI_ORIG       TD_VC_001,      
@OSTI_DOCU       TD_VC_003      
          
Begin Tran SP_TDACTI_PEND_I01          
      
   Select @VSTI_CAMB_0002 = TI_CAMB, @VSTI_ORIG = TI_ORIG        
   From	TTFACA_OPCI 
   Where CO_EMPR = @ISCO_EMPR        
     And CO_MODU = 'TEEM0001'        
     And CO_MENU = 'FTEEMBA'

If ( @VSTI_CAMB_0002 Is Null Or @VSTI_ORIG Is Null )      
	Select	@VSTI_CAMB_0002 = TI_CAMB, @VSTI_ORIG = TI_ORIG
	From	TMPARA_TESO      
	Where	CO_EMPR = @ISCO_EMPR 
          
  Select @VNNU_SECU = Isnull(Max(Isnull(NU_SECU,0)),0) +1          
  From   TDACTI_PEND          
  Where  CO_EMPR = @ISCO_EMPR          
  And    CO_ACTI_PEND = @ISCO_ACTI_PEND          
          
  If @ISCO_MONE = @ISCO_MONE_NACI          
     Select @VNFA_CAMB = 1.00          
  Else           
    Select @VNFA_CAMB = @INFA_CAMB_DIAR          
          
  Select @VSCO_MONE_SIST = T2.CO_MONE          
  From   TMPARA_ACTI T1, TTNUME_REGI T2          
  Where  T1.CO_EMPR = @ISCO_EMPR          
  And    T1.CO_EMPR = T2.CO_EMPR          
  And    T1.NU_REGI = T2.NU_REGI          
          
  Select @VNIM_MONE_SIST = (Select dbo.FN_TCFACT_CAMB_Q02(@ISCO_MONE,       
         @VSCO_MONE_SIST, @IDFE_COMP, @INIM_MONE_ORIG, @VSTI_CAMB_0002,         
         @VSTI_ORIG, 'S', @ISCO_MONE_NACI, @ISCO_MONE_EXTR, @VNFA_CAMB))        
      
  IF @ISCO_MONE != @ISCO_MONE_NACI AND @ISCO_MONE != @ISCO_MONE_EXTR      
     Select @VNFA_CAMB = (Select dbo.FN_TCFACT_CAMB_Q02(@ISCO_MONE,         
     @ISCO_MONE_EXTR, @IDFE_COMP, 1, @VSTI_CAMB_0002,         
     @VSTI_ORIG, 'S', @ISCO_MONE_NACI, @ISCO_MONE_EXTR, @VNFA_CAMB))        
      
  Exec SP_TTDOCU_CNTB_Q02 4, @OSTI_DOCU  OUTPUT      
      
  If @OSTI_DOCU = @ISTI_DOCU      
     Begin      
       Select @INIM_MONE_ORIG = @INIM_MONE_ORIG * - 1      
       Select @VNIM_MONE_SIST = @VNIM_MONE_SIST * - 1      
     End      
      
     Insert into TDACTI_PEND (CO_EMPR, CO_ACTI_PEND, NU_SECU, CO_SIST, FE_COMP, CO_MONE, IM_MONE_ORIG, IM_MONE_SIST,          
                           FA_CAMB, FA_CAMB_DIAR, CO_PROV, TI_DOCU, NU_DOCU, NU_ORDE_COMP, NU_GUIA_INGR, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )          
     Values (@ISCO_EMPR, @ISCO_ACTI_PEND, @VNNU_SECU, 'OFITESO', @IDFE_COMP, @ISCO_MONE, @INIM_MONE_ORIG, @VNIM_MONE_SIST,          
             @VNFA_CAMB, @INFA_CAMB_DIAR, @ISCO_PROV, @ISTI_DOCU, @ISNU_DOCU, @ISNU_ORDE_COMP, @ISNU_GUIA_INGR, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE())          
          
     If @@error <> 0          
        Begin          
         Rollback tran          
         Return          
        End          
          
Commit Tran          
          
/****************************************************************************************/


GO
